source(here::here("code/load.R"))

# TODO: check if std.error = efctsize / zvalue

here("data/meta_analyses_raw/LauSigBro2007/LauSigelmanShare.sav") |> 
    read_spss() |>
    mutate(meta_id = "LauSigBro2007",
           subfield = "AP",
           question = "Do negative political campaigns work?",
           std.error = efctsize / zvalue,
           dv = as_factor(dv),
           overall_effect = "no") |>
    select(meta_id,
           subfield,
           question,
           study_id = Study,
           study_year = year,
           estimate = efctsize,
           std.error,
           dv,
           overall_effect) |>
    write_csv(here("data/meta_analyses_clean/LauSigBro2007.csv"))

